o 

o 
o 
o 
o 
o 
o 
o 
c 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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RDRTST SRC 







700101 


A 






700102 


A 






700104 


A 






700112 


A 






700144 


A 






705Si2 


A 






707764 


A 






707702 


A 


00000 


R 


600010 


A 


00001 


R 


0.00000 


A 


0000? 


R 


000000 


A 


00003 


R 


000000 


A 


00004 


R 


000111 


R 


00005 


R 


0000^2 


R 


00006 


R 


220422 


A 


00007 


R 


242324 


A 


00010 


R 


000020 


A 


00011 


R 




A 


00020 


R 


000000 


A 


00021 


R 


000000 


A 


00022 


R 


000000 


A 


00023 


R 


000000 


A 


00024 


R 


000000 


A 


00025 


R 


000000 


A 


00026 


R 


000000 


A 


00027 


R 


000000 


A 


00030 


R 


000000 


A 


00031 


R 


000000 


A 



RANDOM NUMBER REAPER TEST FOR SYSTEM EXERCISER 

,TITUE RANDOM NUMBER READER TEST FOR SYSTEM EXERCISER 
/COPYRIGHT AUGj 6,1970 

/DIGITAL, EQUIPMENT CORPORATION, MAYNARD, MASS, 
/EARl. I,, BOUSE 

.EBREQ 
/REV I DATE 7«27^71 

/ 
RSF=700101 
RCF5700102 
RSA5700104 
RRe=700112 
RSa=700144 
RPL5705512 
EBA=707764 
EEM5707702 

/ 
UqDSW 600010 /I/O DEVICE WITH API 





SYSERR 
ERCOPE 







iDSA 

,DSA 

iSlXBT 



PSERV 
PINIT 
tRpRTSTi 



20 

.BLOCK 7 
/ 













.EJECT 



/MASK For CHAIN MQOE 



/ERROR INDICATOR 

/WORD COUNT FOR DATA WORDS 

/ERROR CODE 

/ 

/THE SEVEN LOCATIONS 

/FOLLOWING THE ERROR CODE 

/ARE FOR DATA, 



o 



o 



o 



o 



o 



o 



o 



/'~\ 

w 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 

o 



o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 
o 

o 
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/EXAMPi^E? 



O 

o 



O /AC SWITCH 13 INHIBITS THE READER TEST O 

/THE RANDOM NUHBEK READER TEST IS RUN USING A TAPE PUNCHED BY THE 

/RANDOM NUMBER PUNCH TEST, THE TAPE IS READ AT BOTH FU^, SPEED AND 
O /AT RANDOM STALL INTERVALS, IF A REAp ERROR iS ENCOUNTERED IT {S TYP^ U 

/ED OUT AND A STaCL JS SETUP ALLOWING THE OPERATOR TO REMOVE THE 

/TAPE AND. VERIFY IF if WAS A READ OR A PUNCH ERROR, OR THE ERROR MAY 
O /BE IGNORED AND THE TEST WILL RESUME AFTER THE STALL DELAY, IF THE TAPE • O 

/IS REMOVEDi It MUST BE RELOADED, 

/FOUR (4) POSSIBLE READER ERRORS MAY OCCUR? 
O /ERROR CODE! " O 

/ X) NO TAPE IN READER 

/ 2) RSF-SKIPPEO WITH THE lORS BIT CLEAR 
O / 3) ILL API INTERRUPT^ API INTERRUPTED WITH THE READ FLAG CLEAR U 

/ 4) REAP DATA IRROR? 



u 



/ TEST TST m, COLUMNS READ READ MODE GOOD DATA READ DATA 

O / RORtSt 000004 010231 (8) 700112 573452 573572 O 

.E^^ECf 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



(J 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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00032 R 

00033 R 

00034 R 

00035 R 

00036 R 

00037 R 

00040 R 

00041 R 

00042 R 

00043 R 

00044 R 

00045 R 

00046 R 

00047 R 
00050 R 
00053. R 

00052 R 

00053 R 

00054 R 

00055 R 

00056 R 

00057 R 

00060 R 

00061 R 

00062 R 

00063 R 

00064 R 

00065 R 

00066 R 

00067 R 

00070 R 

00071 R 

00072 R 

00073 R 

00074 R 

00075 R 

00076 R 

00077 R 

00100 R 

00101 R 

00102 R 

00103 R 

00104 R 

00105 R 

00106 R 

00107 R 
00110 R 



RDRTST SRC 



000000 A 
707764 A 
707702 A 
200032 R 
040111 R 

140020 R 

140021 R 

140022 R 
140510 R 

200522 R 
040124 R 

200523 R 
040502 R 

200524 R 
040504 R 

140505 R 
I405i2 R 
140515 R 
140507 R 

200525 R 

040476 R 

040500 R 
200^26 R 

040477 R 

040501 R 
200521 R 
540527 R 
100i02 R 
700314 A 
500530 R 
741200 A 
600075 R 
777771 A 
040020 R 
620032 R 
740000 A 

140506 R 
100444 R 
700104 A 
620032 R 
000000 A 
700314 A 
500530 R 
741200 A 
600072 R 
140521 R 
620102 R 



RANDOM NUMBER READER TEST FOR SYSTEM EXERCISER 



/INITIALISE THE 

/ 

/ 
PINIT 

EBA 

EEM 

UAC 

OAC 

DZM 

D2M 

D2M 

0?,H 

kAQ 

DAC 

L,AC 

DAC 

lAC 

DAC 

DHM 

OiM 

DHM 

D2M 

LAC 

DAC 

DAC 

lAC 

DAC 

DAC 

lAG 
SAD 

4m 

lORS 

AND 

SNA 

JMP 
EXTPNT LAW 

DAC 

JMP<> 
PJNITl NOP 

DZM 

JMS 

RSA 

JMP« 
PINIT2 

lORS 

AND 

SNA 

JMP 

DZM 

JMP« 



READER TEST 



PJNIT 

PSERV 

SYSERR 

ERCODEpI 

ERQODE 

RMODE~ 

(PSERA 

DStsWl 

RANSfu' 

(774000 

COlcnT 

RCNT 

ERFLAC 

Fl-GpRV 

RPCHK ■ 

(731420 

RANA 

RANX 

(015610 

RANS 

RANY 

WAIT 

{^7 

PINIT2 

PJNITl 
^7 

SYSERR 
PINIT' 

WAJTl 
HOLD 

PINIT 



(1000 

EXTPNT 

WAJT 

PINIT2 



/ERROR INDICATOR 

/WORD COUNT 

/ERROR CODE 

/SET READ MODE ALPHA 

/DESTINATION SWITCH 
/IST RANDOM STALL COUNT 



/FULL SPEED READ COUNTER 
/SET NO OF COLUMNS TO READ 
/SWITCH FOR ERROR DETECTOR 



/INITIALIZE RANDOM NO, A 



/INITIALIZE RANDOM NO, B 



/WAITIN(; FOR NOTAPE FLAG? 
/Y^S, SEE IF NOW SETi 
/TEST For READER NO TAPE 



/TAPE OKi READ 

/INDICATES TO MONITOR TO EXIT, 
/TYPE AN ERROR AND ENTER AGAJN 
/WAIT FOR TAPE 
/CHANGES TO (JMS TIMOUT 
/CLEAR THE NO TAPE SWITCH, 
/EXAMINE THE HOLD SWITCH 
/START THE READ 



DO NOT 
VIA PINIT 



/JS NOTaPE FLAG SET? 

/NO, EXIT n7 

/YES, CLEAR WAJT SWITCH 



O 

o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 








o 
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RDRTST 


o 










001X3, 


R 


000000 A 


o 


00H2 


R 


707764 A 




00113 


R 


707702 A 




001X4 


R 


0405X1 R 


o 


00115 


R 


200506 R 




001X6 


R 


540527 R 




001X7 


R 


6201XX R 


o 


00120 


R 


2005X5 R 




00X21 


R 


740200 A 




00X22 


R 


100440 R 


o 


00123 


R 


620124 R 




00124 


R 


000000 A 




00125 


R 


700314 A 





00126 


R 


040021 R 




00127 


R 


500530 R 




00130 


R 


740200 A 


c 


00131 


R 


600267 R 




00132 


R 


700101 A 




00133 


R 


600262 R 





00134 


R 


200021 R 




00135 


R 


500531 R 




00136 


R 


741200 A 


o 


00X37 


R 


600312 R 




00140 


R 


100152 R 




00141 


R 


200532 R 


o 


00142 


R 


040075 R 




00143 


R 


200533 R 




00144 


R 


040516 R 


o 


00145 


R 


7055X2 A 




00146 


R 


751X00 A 




00147 


R 


200511 R 


o 


00150 


R 


703344 A 




00151 


R 


620111 R 


o 










00152 


R 


000000 A 




00153 


R 


100444 R 


o 


00154 


R 


700112 A 




00155 


R 


040474 R 




00156 


R 


200507 R 


o 


00157 


R 


740200 A 




00160 


R 


600X66 R 




00161 


R 


200474 R 


o 


00162 


R 


740200 A 




00163 


R 


600166 R 




00164 


R 


700104 A 





00165 


R 


620152 R 











o 









RANDOM NUMBER READER TEST FpR SYSTEM EXERCISER 



JMP NQFLAG 

l,AC ERCOOEel 

ANP (200000 /READER FL,AG 

SNA 



SPAICUA 

UAC SAVAC /API ON, RESTORE THE AC 

DBR 

gMP« PSERV 



/ 
/ 

RDTST 



o 
o 



/SERVICE ENTRANCE FOR THE READER TEST O 

/ 
PSERV 

EBA O 

EEM 

DAC SAVAC /SAVE THE CONTENTS QP THE AC 

UAC WAIT! O 

SAD C»7 /WAITING FOR TAPE? 

^MP« PSERV /YES, EXIT 

LAC PQGDRV O 

SZA /WERE WE READING? 

UMS FLAGUP /YES, CHECK IFFINISHEQ 

JMP<t DSTSWi O 

DSTSWl ' " /=T0 STALL OR NORMAL READ 

PSERA lORS /|F THE READER FLAG IS NOT UP. RETURN 

DAC ERCODEbX ■ O 

AND (1000) /TO MONITOR WITH AC?"! 

SHA ■ /IF THE FLAG IS UPi DO THE NEXT 

JMP NQTAPE /OPERATION THEN EXIT WITH AC=0 O 

RSF /TEST READER FLAG 



o 



JMP ERR0R2 /RSF SKIPPED BUT STATUS BIT CLEAR O 

PSERV, X JMS RPTST /READER INTERRUPT, READ DATA 

EXIT LAC (UMS TIMOUT 

DAC PJNITX O 

LAC (7000^0 

DAC TIME ~" /INITIALISE A STALL COUNT 

RPL /TEST FOR API ENABLED O 



o 
o 
o 



u 



JMS HOLD /EXAMINE HOLD SWITCH 

RRB 

DAC DATA /STORE READER BUFFER 

LAC ROCHK 

SHA /HAD A SUCCESSFUL REAQ? O 

JMP READ /YES 

LAC DATA /NO 

SZA /THIS READ OK? O 

JMP READ /YES, COMPARE READ DATA 

RSA /NO, READ THE NEXT COLUMN 

JMP* HUTST O 

I EJECT 

o 
o 
o 



o 

o 



o 



o 



,.--> 
^ 



o 



O 



O 
O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
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^ 




RDRTSl 


r SRg 


00166 


R 


777777 


A 


00167 


R 


040507 


R 


00170 


R 


440505 


R 


00171 


R 


740000 


A 


00172 


R 


200505 


R 


00173 


R 


540534 


R 


00174 


R 


600232 


R 


00175 


R 


100250 


R 


00176 


R 


040475 


R 


00177 


R 


200510 


R 


00200 


R 


740200 


A 


00201 


R 


600242 


R 


00202 


R 


200475 


R 


00203 


R 


500535 


R 


00204 


R 


040475 


R 


00205 


R 


540474 


R 


00206 


R 


741000 


A 


00207 


R 


100321 


R 


00210 


R 


700144 


A 


00211 


R 


200510 


R 


00212 


R 


740001 


A 


00213 


R 


040510 


R 


00214 


R 


777777 


A 


00215 


R 


040515 


R 


00216 


R 


200001 


R 


00217 


R 


740020 


A 


00220 


R 


741400 


A 


00221 


R 


620152 


R 


00222 


R 


440504 


R 


00223 


R 


620152 


R 


00224 


R 


200536 


R 


00225 


R 


040124 


R 


00226 


R 


200502 


R 


00227 


R 


340537 


R 


00230 


R 


040513 


R 


00231 


R 


620152 


R 


00232 


R 


700112 


A 


00233 


R 


777774 


A 


00234 


R 


040020 


R 


00235 


R 


140021 


R 


00236 


R 


777771 


A 


00237 


R 


040521 


R 


00240 


R 


040506 


R 


00241 


R 


600141 


R 



RANDOH NUMBER READER TCST FOR SYSTEM EXERCISER 



/REAP 
READ 



RRET 



DONE 



SUBROUT 
/ 

LAW 
DAC 
ISZ 
NOP 
lAC 
SAD 
JMP 
JMS 
DAC 
lAC 
SZA 
JMP 
LAC 
AND 
DAG 
SAO 
SKP 
JM9 
RSB 
lAC 
CMA 
DAC 
LAW 
DAC 
LAC 
RAR 
Ul 
JMP<t 
ISZ 
JMP* 
LAC 
DAC 
LAC 
TAD 
DAC 
JMP» 
/ 

RRB 
LAW 
DAC 
D2M 
LAW 
DAC 
DAC 
JMP 
,EJEC 



INE 



"1 

RDCHK 

RCNT 

RCNT 

DONE 
RANDOM 
DATNUM 
RHODE 

TRSB 
DATNUM 

DATNUM 
DATA 

ERROAT 

HMODE 

RMQDE 

F'LGORV 
UOPSW+l 



RDTST 

CDLCNT 

RDTST' 

«STALL 

DSTSWi 

RANSTL 

(«100' 

NOSTALL 
RofST" 



b4 

SYSERR 

SYSERR*! 

WAIT 

HAITI 

EXIT 



/INDICATES SUCCESSFUL READ 
/COUNT COLUMS READ 



/FINISHED READING? 

/YES, EXIT 

/NOi GET RANDOM NUMBER 



/DETERMINE READ MODE 

/READ MODE BINARY 

/READ MODE ALPHA 

/MASK BITS 10S17 

/SAVE THE MASKED NUMBER 

/COMPARE READ DATA TO RANDOM NUMBER 

/READ IS = TO THE NUMBER 

/NOi GO TO DATA ERROR 

/YES, READ THE NEXT COLUMN 

/qOMPt,|MENT THE READ MODE 



/INDICATES FLAG DRIVEN 



/COUNTER FOR FULL SPEED READ 



/INITIALIZE THE STALL ROUTINE 
/INITIALIZE A NO STALL COUNT 



/DONE, EXIT 



/SET NOTAPE SWITCH 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 
o 
o 
o 
o 
o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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00242 R 200'»75 R 

00243 R 540474 R 

00244 R 741000 A 

00245 R 100321 R 

00246 R 700104 A 

00247 R 600211 R 



RANDOM NUMBER REAPER TEST FOR SYSTEM EXERCISER 



00250 
00251 
00252 
00253 
00254 
00255 
00256 
00257 
00260 
00261 



R 000 

R 754 

R 340 

R 340 

R 040 

R 750 

R 340 

R 340 

R 040 

R 620 



000 
000 
476 
477 
476 

0i0 

476 
477 
477 

250 



00267 
00270 
00271 
00272 
00273 
00274 
00275 
00276 
00277 
00300 
00301 



00262 R 705512 A 

00263 R 741100 A 

00264 R 600353 R 

00265 R 777777 A 

00266 R 620111 R 



R 700112 A 

R 777775 A 

R 040020 R 

R 200540 R 

R 040022 R 

R 777777 A 

R 040021 R 

R 140515 R 

R 200541 R 

R 040124 R 

R 600141 R 



/REAP B 
TRSB 



/RANOOM 
RANDOM 



/NP FIA 
NQFl-AG 



/ERROR 
NOTAPE 



INARY 
/ 

I, AC 
SAD 

SKP 

JMS 

RSA 

vJMP 

/ 

/ 

NUMBER 

/ 



TAD 

TAD 

DAC 

GLK 

TAD 

TAD 

DAC 

JMP<* 

/ 

f 
G FROM 

/ 

RPL, 

SPA 

JMP 

IM 

dMP» 

/ 

/ 
011 NO 

/ 

RRB 

LAW 

OAO 

lAC 

DAC 

lAW 

DAC 

D^M 

l,AC 

DAC 

JMP 

.EJECT 



UATNUM 
DATA 

ERRDAT 

RRET 



/GET RANDOM NUMBER 

/COMPARE READ TO RANDOM NUMBER 

/IS READ = TO NUMBER 

/NO, GO TO DATA ERROR 

/YES, READ NEXT COLUMN 



SUBROUTINE* EXIT WITH NUMBER IN THE AC 



RANA 
RANB 
RANA 



RANA 
RANB 
RANB 
RANDOM 



REAQERl TEST THAT 



ERR0R3 
PSERV 



TAPE IN READER 



■b3 
SYSERK 

u 

ERCODE 

"1 
ERCOPEsl 

FLGDRV 
(EXTNTP 
DSTSWl 
KX|T 



API IS OFF 

/TEST IF API IS ON 

/NO READER FLAG, API INTERRUPTED 
/NO READER FLAG, API OFF 
/NORMAL EXIT 



/CLEAR THE READER Fl,AG 

/ERROR CODE 01J NO TARE ■ 
/ONE DATA WORD TO BE PRINTED 



O 
O 

o 
o 
o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o. 
o 
o 
o 



u 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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RDRTST SRg 


00302 


R 


200020 R 


00303 


R 


540542 R 


00304 


R 


600141 R 


00305 


R 


140021 R 


00306 


R 


777771 A 


00307 


R 


040020 R 


00310 


R 


040506 R 


00311 


R 


600141 R 


00312 


R 


200543 R 


00313 


R 


040022 R 


00314 


R 


nnn a 


00315 


R 


040020 R 


00316 


R 


777776 A 


00317 


R 


040021 R 


00320 


R 


600141 R 



RANDOM NUMBER REAPER TEST FQR SYSTEM EXERCISER 



EXTNTP 



00321 


R 


000000 


A 


00322 


R 


200544 


R 


00323 


R 


040022 


R 


00324 


R 


777773 


A 


00325 


R 


040021 


R 


00326 


R 


777776 


A 


00327 


R 


040020 


R 


00330 


R 


200505 


R 


00331 


R 


040023 


R 


00332 


R 


200510 


R 


00333 


R 


750200 


A 


00334 


R 


200545 


R 


00335 


R 


340546 


R 


00336 


R 


040024 


R 


00337 


R 


200475 


R 


00340 


R 


040025 


R 


00341 


R 


200474 


R 


00342 


R 


040026 


R 


00343 


R 


200547 


R 


00344 


R 


040517 


R 


00345 


R 


777775 


A 


00346 


R 


040520 


R 


00347 


R 


200550 


R 


00350 


R 


040124 


R 


00351 


R 


140515 


R 


00352 


R 


600141 


R 



/ERR0R2 



SAD 

^MP 

D2M 

lAW 

DAC 

DAC 

JMP 

/ 

IS WHEN 

/ 



/TYPED ERROR YET? 



SYSERR 

(»3 
EXIT 

SY5ERR*1 

«7 

SYSERR 

WAJTI 

EXIT 



RSr SKIPPED BUT STATUS BIT CLEAR 



ERR0R2 l,AC 
DAQ 
UAW 
DAC 
LAW 
DAC 
UMP 
/ 
/ 

/DATA ERRORi 
/ 

ERRDAT 



/ERROR CODE 02 



(2 

ERCODE 

■"i . " 

SYSERR 
a 2 

ERCODEsl 
EXIT 



READ DATA IS DIFFERENT FROM EXPECTED DATA 



LAC 

DAC 

LAW 

DAC 

LAW 

DAC 

LAC 

DAC 

LAC 

SZAICLA 

LAC 

TAD 

DAC 

LAC 

DAC 

LAC 

DAC 

LAC 

DAC. 

LAW 

DAC 

LAC 

DAC 

D2M 

JMP 

.EJECT 



(4 

ERCOPE 

«5 

ERCoDE^tI 

b2 

SYSERR 

RCNT 

ERCODE.*! 

RfiPDE' 

(40 

(700104 

ERCODE+2 

PATNUR 

ERC0DE*3 

DATA 

ERC0DE*4 

(750000 



s3 

LOOPl 

(SRVEKR 

DSTSWi 

FLGDRV 

EXIT 



/ERROR CODE 04? DATA ERROR 
/FIVE DATA ERRORS TO BE PRINTED 

/COLUMNS READ 

/DETERMINE READ MODE 

/READ BlNARYi 700144 
/READ Al,PHAi 700104 

/GOOD DATA 

/READ DATA 

/SET UP A WAIT COUNT 



/SET DESTINATION SWITCH 
/CLEAR FLAG SWITCH 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



u 

O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



PAQE 



RDRTST SRC 



00353 R 777777 A 

00354 R 040020 R 

00355 R 200551 R 

00356 R 040022 R 

00357 R 777777 A 
00360 R 040021 R 
00364 R 600141 R 



00362 
00363 
00364 

00365 
00366 
■00367 
00370 
00371 
00372 
00373 
00374 
00375 
00376 
00377 
00400 

00401 
00402 



00403 
00404 
00405 
00406 
00407 
00410 
00411 
00412 
00413 
00414 
00415 
00416 
00417 
00420 
00421 



R 200020 R 
R 540552 R 
R 600141 R 
R 700314 A 
R 500530 R 
R 740200 A 
R 600267 R 
R 440517 R 
R 600422 R 
R 440520 R 
R 600422 R 
R 200522 R 
R 040124 R 
R, 200523 R 
R 040504 R 
R 100444 R 
R 620321 R 



R 200515 R 
R 740200 A 
R 700112 A 
R 140515 R 
R 440502 R 
R 600422 R 
R 100425 R 
R 040502 R 
R 440513 R 
R 600140 R 
R 340553 R 
R 040504 R 
R 200522 R 
R 040124 R 
R 600140 R 



00422 R 777773 A 

00423 R 040020 R 

00424 R 600141 R 



RANDOM NUMBER READER TEST FQR SYSTEM EXERCISER 

/ERRQR3, API INTERRUPT OCCURED WITH MO READER FLAG SET 

/■■'■"■ 

ERR0R3 UW =1 /SET UP ERROR 3 

DAC SYSERR 

lAC <3 ' /ERROR CODE 03; API ERROR 

PAC EROODE 

LAW «i ~ /ONE DATA WORD TO BE PRINTED 

DAC ERCQDE?rl 

JMP EXIT 

/ 
/WAIT FOR ERROR TO BE TYPEO, AND STAUL BEFORE CONTINUING READ 

/ 

SRVERR t,AC SYSERR 

SAD '(b2 

JMP EXJT 

iORS 

AND (1000 

SZA 

JMP NOTAPE 

isi i,dop ' 

JMP SYt,EXT 

IS2 lOOPl^ 

JMP SfLEXT 

UAC (PSERA 

PAC DSTSWl 

i,AC {777^\ie 

DAC COLCNT 

JMS HO|_D 

JMP» ERRDAT 

/ 

/ 
/RANDOM STALL ROUTINE 

/ 

STALL LAC FLGDRV 

SZA 

RRS 

DZM FL^DRV 

ISZ RANSTL 

JMP STLEXT 

JMS GENRAN 

DAC RANSTL 

IS? nqstaC 

JMP PSERVjl 

TAD («300 

DAC COLCNT 

LAC (PSERA 

DAC DSTSWl 

JMP PSERVj'l 
/ 

STLEXT LAW "5 

DAC SYSERH 

JMP EXJT 
.EJECT 



/ERROR TYPED YET? 

/NOiEXjT 

/TEST FOR NO JAPE FLAG 

/|S FLAG SET? 
/YES, PRINT COPE 
/NO, START DELAY 
/EXIT ^5 



/RESET DESTINATION SWITCH 

/REINIT FULL SPEED READ 
/TEST FOR HOLD SWITQH 
/READ NEXT COLUMN 



/FLAG DRIVEN ? 

/YES, CLEAR READER FLAG 
/NO, ENTERED SYSERR«5 
/COUNTER FOR STALL N0, 
/CONTINUE STALL 
/SET UP FOR NEXT STALL TIME 

/CHECK FOR NO STALL 



/SET UP NO STALL COUNT 
/QU^R THE STALL SWITCH 

/CONTINUE STALL 



o 
o 
o 
o 
o 
o 

u 

o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 








o 
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RDRTST 


o 










00425 


R 


000000 A 


o 


00426 


R 


340500 R 




00427 


R 


340501 R 




00430 


R 


040500 R 


o 


00431 


R 


750010 A 




00432 


R 


340500 R 




00433 


R 


340501 R 


o 


00434 


R 


040501 R 




00435 


R 


500554 R 




00436 


R 


740001 A 


o 


00437 


R 


620425 R 


o 










00440 


R 


000000 A 





00441 


R 


7mrH A 




00442 


R 


600262 R 




00443 


R 


620440 R 


o 








o 










00444 


R 


000000 A 




00445 


R 


750004 A 


o 


00446 


R 


500555 R 




00447 


R 


741200 A 




00450 


R 


620444 R 


o 


00451 


R 


200124 R 




00452 


R 


040503 R 




0045? 


R 


200556 R 


o 


00454 


R 


040124 R 




00455 


R 


zmn^ R 




00456 


R 


741200 A 


o 


00457 


R 


600422 R 




00460 


R 


700101 A 




00461 


R 


600422 R 


o 


00462 


R 


140515 R 




00463 


R 


700112 A 




00464 


R 


600422 R 


o 










00465 


R 


200503 R 




00466 


R 


040124 R 


o 


00467 


R 


600445 R 


o 








o 


















RANDOM NUMBER REAUER TEST FqR SYSTEM EXERCISER 



GENRAN 



DAC RANX 

TAD RANX 
TAD RANY 



/TEST AC SWITCH 13 WHJCH INHIBITS THE READER TEST 
HOUO 



JMP STUEXT /EXIT 

/ 

H0L,D,1 LAC SAVDST 

DAC OSTSWl /RESTORE THE RETURN ADDRESS 



o 
o 



/GENERATE RANDOM STALL N0,j EXIT WITH N0, IN THE AC O 

/ 



TAD RANX O 

TAD RANY 



O 



DAC RANY O 

AND (17 

CMA 

JMP* QENRAN O 

/ 

/TEST THAT THE READER HAS FINISHED READING BEFORE CONTINUING, U 

/ 
FLAGUP 

RSF /TEST FOR READER FLAG O 

UMP NQFLAG /READER IS NOT FINISHED 

JMP*» FLAGUP /FLAG UP, CONTINUE 



o 
o 



t,AS 

AND (20 /AC SW 13 O 

SNA /IS SWITCH UP? 

gMP« HOLD /NOi CONTINUE _ 

LAC DSTSWl /YES O 

DAC SAVDST /SAVE RETURN ADDRESS 

LAC (H0LD,1 

DAC DSTSWl O 

LAC Ft;GDRV 

SNA /FLAG DRIVEN? 

JMP 3TLEXT /NOi EXIT «5 O 

RSF /YES, IS READER FINISHED? 

siMP STLEXT /NO 

DHM FJ^GDRV O 

RRB ' /YES, CLEAR READER FLAG 



o 



^ 



JMP HOLD*! /RETEST SWITCH O 

•EJECT 

O 
O 
O 
O 



o 
o 

PAGE 10 RPRTST SRC RANDOM NUMBER REAPER TEST FOR SYSTEM EXER^^ISER 

O /WAIT FOR i0 SEC, AFTER NOTAPE FLAG IS CLEARED O 

/ 



o 



( ) 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

u 



00470 


R 


000000 


A 


TIMOUT 





00471 


R 


440^i6 


R 




IS? TIME 


00472 


R 


600072 


R 




JMP EXTPNT 


0047? 


R 


620^70 


R 




JMP* flMOUT 
/ 




00474 


R 


000000. 


A 


OATA 


00475 


R 


000000 


A 


OATNUM 





00476 


R 


000000 


A 


RANA 





00477 


R 


000000 


A 


RANB 





00500 


R 


000000 


A 


RANX 





00501 


R 


000000 


A 


RANY 





00502 


R 


000000 


A 


RANSTL 





00503 


R 


000000 


A 


SAVDST 





00504 


R 


000000 


A 


COLCNT 





00505 


R 


000000 


A 


RCNT 





00506 


R 


000000 


A 


WAITI 





00507 


R 


000000 


A 


RDQHK 





00510 


R 


000000 


A 


RHODE 





00511 


R 


000000 


A 


SAVAQ 





00512 


R 


000000 


A 


ERFLAG 





00513 


R 


000000 


A 


NOSTAL 





00514 


R 


000000 


A 


NTAPFG 





00515 


R 


000000 


A 


FLGDRV 





00516 


R 


000000 


A 


TIME 





00517 


R 


000000 


A 


LOOP 





00520 


R 


000000 


A 


LOOPi 





00521. 


R 


000000 


A 


WAIT 















, EJECT 



o 

/EXIT Via «7 

/RESTART READ TEST _ 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o. 

o 

o 

o 

o 



o 

o 
o 
o 
o 
o 
o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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RDRTST SRC 






000000 R 




00522 


R 


000125 R 


^l. 


00523 


R 


777000 A 


^l. 


013524 


R 


774000 A 


K 


00525 


R 


733,420 A 


^l 


00526 


R 


015610 A 


%. 


00527 


R 


lll'ilX A 


«L. 


00530 


R 


mxy^m a 


<*l 


00531 


R 


200000 a 


^l. 


00532 


R 


100470 R 


*^l. 


00533 


R 


700000 A 


**L 


00534 


R 


2^0777 A 


*^l 


00535 


R 


000377 A 


»L 


00536 


R 


000403 R 


^l 


00537 


R 


777700 A 


*?l 


00540 


R 


000001 A 


**i. 


00541 


R 


000302 R 


^l 


00542 


R 


777775 A 


^t. 


00643: 


R 


000002 A 


«L 


00544 


R 


000004 A 


**l 


00545 


R 


000040 A 


^l 


00546 


R 


700104 A 


»l 


00547 


R 


750000 A 


^U 


00550 


R 


000362 R 


**l^ 


00551 


R 


000003 A 


^U 


00552 


R 


777776 A 


9L 


00553 


R 


777500 A 


^L 


00554 


P 


000017 A 


^l 


00555 


R 


000020 A 


^i 


00556 


R 


000465 R 


■ ^l 






SIzJE? 


■00'^6i3 



RANDOM NUMBER REAPER TEST FOR SYSTEM EXERCISER 



• END 



UQPSW 



NO ERROR UINES 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



G 
O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



PAGE 12 RDRTS 


I SRQ 


RANDOM 


NUMBER REA 


PER TES 


5T F 


OR SYSTEM 


EXERC 


s 


COLCNT 


00504 


R 


DATA 


00474 


R 


DATNUM 


00475 


R 


DONE 


00232 


R 


DStSWi 


003,24 


R 


EBA 


707764 


A 


KEM 


707702 


A 


ercode: 


00022 


R 


ERFUAG 


00512 


R 


ERRDAT 


00321 


R 


ERR0R2 


'00312 


R 


ERRORS 


00353 


R 


EXIT 


0014X 


R 


EXTNTP 


00302 


R 


EXTPNT 


00072 


R 


FLAGUP 


00440 


R 


FI^GDRV 


00515 


R 


GENRAN 


00425 


R 


HPLD 


00444 


R 


HOLD,! 


00465 


R 


LOOP 


00517 


R 


LOOPl 


00520 


R 


NOFLAG 


00262 


R 


NPSTAL 


00513 


R 


NOTAPE 


00267 


R 


NTAPFG 


00S14 


R 


PINIT 


00032 


R 


PINITI 


MB?'? 


R 


PINIT^^ 


00102 


R 


PSERA 


00125 


R 


PSERV 


00111 


R 


PSERV, 


00140 


R 


RANA 


00476 


R 


RANB 


00477 


R 


RANDOM 


00250 


R 


RANSTL 


00502 


R 


RANX 


00500 


R 


RANY 


00501 


R 


RCF ■ 


700102 


A 


RCNT 


00505 


R 


ROCHK 


00507 


R 


ROTST 


003,52 


R 


■ REAP 


'00166 


R 


RHODE 


00510 


R 


RPL 


705512 


A 


RRB 


70013,2 


A 


RRET 


00211 


R 


RSA 


700104 


A 


RSB 


700t44 


A 


RSF 


700101 


A 


SAVAQ 


00511 


R 


SAVDST 


00503 


R 


SRVERR 


00362 


R 


STALL, 


00403 


R 


STLEXT 


00422 


R 


SYSERR 


00020 


R 


TjME 


00516 


R 


TJMOUT 


00470 


R 


TRSB 


00242 


R 


UODSW 


00000 


R 


WAIT 


00521 


R 


WAIT! 


00506 


R 















o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



PAGE 3.3 RPRTST SRq 


RANDOM 


NUMBER READER TEST 


FOR SYSTEM 


EXERCIS 


UODSW 


00000 R 


SYSERR 


00020 


R 


ERC30DE 


00022 


R 


PINIT 


00032 R 


EXTPNT 


00072 R 


PINITI 


00075 


R 


PlNn2 


00102 


R 


PSERV 


00111 R 


DSTSWl 


00124 R 


PSERA 


00125 


R 


pse;rv, 


00140 


R 


EXIT 


00141 R 


ROTST' 


00152 R 


READ 


00166 


R 


RRET 


00211 


R 


DONE 


00232 R 


TRS8 


00242 R 


RANDOM 


00250 


R 


nofi;ag 


00262 


R 


notape 


00267 R 


EXTNTP 


00302 R 


ERRORS 


00312 


R 


ERRDAT 


00321 


R 


ERRORS 


00353 R 


SRVERR 


00362 R 


STAj^L, 


00403 


R 


STUeXT 


00422 


R 


genran 


00425 R 


FLAGUP 


00440 R 


HPL,0 


00444 


R 


HOt,D,l 


00465 


R 


TIMOUT 


00470 R 


DATA 


00474 R 


DATNUM 


00475 


R 


RANA 


00476 


R 


RANB 


00477 R 


ranx 


00500 R 


RANY 


00501 


R 


ranstu 


00502 


R 


SAVDST 


00503 R 


COLQNT 


00504 R 


RCNT 


00505 


R 


WAlfl 


00506 


R 


RPCHK 


00507 R 


RMOOE 


00510 R 


SAVAC 


00511 


R 


ERFUG 


00512 


R 


NQSTAL 


00513 R 


NTAPFG 


00514 R 


Fl,GDRV 


00515 


R 


TIME 


00516 


R 


l^OOP 


00517 R 


l,OOPl 


00520 R 


WAIT 


00521 


R 


RSF" 


700101 


A 


RCF 


700102 A 


RSA 


700104 A 


RRB 


700112 


A 


RSB 


/00144 


A 


RPL 


705512 A 


EEM 


707702 A 


EBA 


707764 


A 













o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



